home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / hamradio / sgp4_pl2.zip / SGP_INTF.PAS < prev    next >
Pascal/Delphi Source File  |  1992-09-13  |  1KB  |  39 lines
  1. Unit SGP_Intf;
  2. {           Author:  Dr TS Kelso }
  3. { Original Version:  1992 Sep 03 }
  4. { Current Revision:  1992 Sep 13 }
  5. {          Version:  1.02 }
  6. {        Copyright:  1992, All Rights Reserved }
  7. {$N+}
  8.  
  9. INTERFACE
  10.  
  11. const
  12.   ae       = 1;
  13.   tothrd   = 2/3;
  14.   xkmper   = 6378.135;        {Earth equatorial radius - kilometers (WGS '72)}
  15.   f        = 1/298.26;        {Earth flattening (WGS '72)}
  16.   ge       = 398600.8;        {Earth gravitational constant (WGS '72)}
  17.   J2       = 1.0826158E-3;    {J2 harmonic (WGS '72)}
  18.   J3       = -2.53881E-6;     {J3 harmonic (WGS '72)}
  19.   J4       = -1.65597E-6;     {J4 harmonic (WGS '72)}
  20.   ck2      = J2/2;
  21.   ck4      = -3*J4/8;
  22.   xj3      = J3;
  23.   qo       = ae + 120/xkmper;
  24.   s        = ae + 78/xkmper;
  25.   e6a      = 1E-6;
  26.   dpinit   = 1;               {Deep-space initialization code}
  27.   dpsec    = 2;               {Deep-space secular code}
  28.   dpper    = 3;               {Deep-space periodic code}
  29.  
  30. var
  31.   iflag,ideep                : integer;
  32.   xmo,xnodeo,omegao,eo,xincl,
  33.   xno,xndt2o,xndd6o,bstar,
  34.   julian_epoch,xke           : double;
  35.  
  36. IMPLEMENTATION
  37.  
  38. end.
  39.